ED Apple Assembly Line 


Volume i -- Issue 2 November, 1980 


Our second issue is 33% larger than the first! And not only 
so, but also there is useful information on the back page! I 
found a source for 6x9 white envelopes, so your address can 

be external to the newsletter, and so your copy will arrive in 
better condition. In less than a month since the newsletter 
was first announced, we already have over 45 paid subscribers. 
They are sprinkled all over the map, including one in Japan! 
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A Bug in S-C ASSEMBLER II Disk Version 4.0 


One real bug has turned up, and a few of you have had the 
bad luck to discover it the hard way. The assembler is 
free-format, in that opcodes and directives may start in 

any column after the blank which terminates the label field. 
However, the ".IN" directive will malfunction unless there 
are at least six spaces. If you tab over before typing ".IN" 
there will be no problem. However, if you type your line 
like "1230 .IN FILE1", with only two spaces between the line 
number and the period, you are in for a long wait. The 
processor goes into a loop printing D's. If you have the 
MON C mode on, you will see "LOADDDDDDDDDDDDDDD....." with 
D's forever appear on your screen. Remember to TAB OVER, 

and it will not malfunction. 


One fancied bug has been reported, and I would like to 
explain it. A user pointed out that you cannot shorten 

the SAVE command to three letters if you wish to save the 
source program on a disk file. Why? Because "SAVE" or "SAV" 
with no file name is not a DOS command. It is an assembler 
command to save the source program on cassette tape! On the 
other hand, SAVE with a filename is not an assembler command. 
It is a DOS command, and the assembler never sees it. ‘The 
same goes for "LOAD", "LOA", and LOAD with a filename. 


Variable Cross Reference for Applesoft Programs 


Besides illustrating a lot of programming techniques, the 
VCR program is a very useful tool when you are writing large 
Applesoft programs. As listed here, it requires a 48K Apple, 
and assumes that HIMEM is set to at least $8AA7. You BRUN it, 
and it sets up the &-vector. When you are ready to print 

a cross reference, you merely type "&" and a carriage return, 
and out it comes. It is very fast: About 15 times faster 
than the VCR program included in Apple's DOS Tool Kit. It 
also takes less memory than Apple's version, both for the 
program itself and for the tables it constructs during exe- 
cution. 


The main body of the program is in lines 1400 thru 1460. 
After calling INITIALIZATION, the subroutine PROCESS.LINE is 
called until there are no more lines. Then PRINT.REPORT is 
called, and finally INITIALIZATION is called again to restore 
Applesoft's tables to their original form. 


INITIALIZATION sets up PNTR to point to the beginning of the 
program, and EOT to point to the end of the table area. It 
also clears out a set of 26 2-byte pointers in HSHTBL (hash 
table). PROCESS.LINE scans a single line looking for variables 
by calling SCAN.FOR.VARIABLES, until the end of the program is 
reached. PRINT.REPORT merely prints a nice orderly report from 
the data which has been stored in the table by SCAN.FOR.VARI- 
ABLES . 


The symbol table routines used in VCR are very similar to the 
ones used inside S-C ASSEMBLER II Version 4.0. There are 26 
pointers starting at HSHTBL ($280), each one representing one 
letter of the alphabet. The first letter of a variable name 
selects one of these pointers. The pointer points at the first 
entry in a chain of variable names. When a new variable name 
is found, it is inserted in the appropriate chain at the place 
where it will be in alphabetical order. A subechain is kept 
for each variable name of all the line numbers from which it 
is referenced. The line number chain is maintained in numer- 
ical order. Thus there is no sorting necessary when it comes 
time to print the report. 


Since no routines from the Applesoft ROMs are used, VCR will 
work with no changes with the RAM version of Applesoft. Since 
it loads below $9000, it will not conflict with Neil Konzen's 
PLE (Program Line Editor). Since it is just straight-forward 
code, with no address tables or embedded data, you can easily 
relocate it to a different running address; only the 3-byte 
instructions with the third byte equal to $88, 49, or $8A 

need to be changed. Or, you can type it in, and use a different 
origin (line 1040). 


If you like to modify programs, this one needs one improvement. 
(Only one?) I forgot to take note of the FN token, so any 

FN definitions or uses will look like references to an array 
variable. Another kind of modification, called "major" per- 
haps, will turn the VCR into LNCR (Line Number Cross Reference). 
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Bags, boxes, et cetera 


Since I sell software in stores, I buy a lot of zip-lock bags, 
cardboard mailing boxes, diskettes, and so on. I thought that 
maybe you need some of these, and haven't been able to find a 
source at good prices in small quantities. I will sell you 
some of mine, at the following prices: 


6"x9" zip-lock bags $8 700400 
9"x12" gzip lock bags $12/100 
Verbatim diskettes 
without hub rings $30 for box of ten, $265 for 100 
with hub rings 32 for box of ten, $285 for 100 


Anything else you need? Let me know, maybe I have it or can 
get it for you or tell you where you can get it at a good price. 


Assembly Source on Text Files 


Version 4.0 of the S-C ASSEMBLER II allows you to EXEC a 

source program, if it is on a DOS text file. This is handy 

if you have created it with a different editor, or perhaps 

with a compiler. But what if you want to go the other way? 
What if you want to save a source program on a text file, so 
that it can be used in another editor, or by another assembler? 


There is no built-in command to allow it, so I have now 
written a separate program to do it. The program loads at 
$0800 thru $093C, and does not borrow any code from the 
assembler. It does use some routines in the Monitor ROMs, 
and the DOS I/0 rehook routine. If you BRUN the progran, 

it will assume the pointers at $CA,CB and $4C,4D are bracket- 
ing a valid assembly source program, and try to list it on 

a text file. 


The main body of the program is in lines 1190 thru 1630. 
Lines 1200 and 1210 serve to un-hook the S-C ASSEMBLER II 
from the output. They will also turn off your printer, if 
you had it on. Lines 1220 and 1230 teli DOS that it should 
recognize commands printed after a control-D. Lines 1240 

and 1250 change the prompt symbol to a blank, so that the 
monitor input subroutine will not print a colon or some other 
character as the prompt when reading the file name. 


Lines 1290 thru 1360 request you to enter a file name, read 
it into the monitor buffer starting at $0200, and move it 

to a safe place at $0280. It has to be moved, because when we 
print DOS commands later the area starting at $0200 will be 
written on by DOS. 


Once the file name you have typed is safely stored at $0280 
and following, lines 1410 thru 1490 will set up the file for 
writing. This is done in five steps. First, close all files. 
Second, issue an OPEN-DELETE-OPEN sequence, with the file 
name (of course); this will make sure that we are writing on 
a fresh empty file. Then the WRITE command is sent, and we 
are ready to roll. 


Line 1530 calls a subroutine which lists your source program. 
since the file is OPEN and in WRITE mode, the listing goes 
into your text file. If you have MON O mode set, you will 
also see the listing on your screen. Note that it is not 
really necessary for me to use a subroutine at this point. 
ASM.LIST is only called once, and it is not very long. But 

I did it anyway, to keep the main body short enough to fit 

on a page, easy to understand, modular, structured, etc. 


After the listing is completed, Line 1570 will close the text 
file. Lines 1610 and 1620 turn of the DOS run flag, so that 
DOS will not look for control-D commands. And finally, line 
1630 re-enters the S-C ASSEMBLER II through its soft entry 
point. 


For example, the source line 
1000 ABC LDA SAM 


is stored as: OF (total of 15 bytes in line image) 
E8 03 (line number 1000) 
41 42 43 84 ("ABC” and 4 blanks) 
kc 44 41 81 ("LDA" and 1 blank) 
53 41 4D ("SAM") 
00 (end of line indicator) 


The subroutine ASM.LIST.LINE, at lines 2490 thru 2610, 
prints one source line. A subroutine named GNB ("get next 
byte") is called to skip over the length byte, and to pick 
up the line number. PRINT.LINNUM is called to convert the 
line number to decimal and print it, with leading zeroes if 
necessary, as a four digit number. The loop at lines 2570. 
thru 2600 is seeded with a blank (because the blank between 
the line number and the label field is not actually stored 
in the source program), and the text of the line is printed. 
The loop prints a character, and then calls NEXT.TOKEN to 
get the next one. When the token returned equals $00, the 
line is finished. 


GNB, lines 2630 thru 2690, clears the queued blank count, 
picks up the character pointed at by SRCP, and increments 
ORCP. 


NEXT.TOKEN, lines 2710 thru 2820, tests the blank count. If 
it is non-zero, the count is decremented and a blank ($20) 
character is returned. If the count was zero, the next char- 
acter is picked up from the line. If this character is not 
a blank count token, it is returned and the pointer in SRCP 
is incremented. If the character is a blank count token, 

it is saved, the SRCP pointer is incremented past the token, 
and then the count is decremented and a blank returned. 


The PRINT.LINNUM routine, lines 2860 thru 3170, is a revision 
of a routine used in the Integer BASIC ROMs. I think it is 
commented well enough for you to follow. The general idea 

is to divide by 1000 and print the quotient; divide by 100 
and print the quotient; then by 10; and finally print the 
remainder. 


Since severaly of you have asked me to provide the capability 
to list programs onto text files, you should be pleased with 
this program. If you do not need it, then maybe it has 

shed some light on the internal structure of part of. the 
assembler, or served as a tutorial in programming. 
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Lines 1670 thru 1780 are text strings, printed by the subroutine 
named PRINT.QUOTE. Each string is written with the sig bit 

of every byte zero except for the last byte. The sign bit.-of. 
the last byte is 1, telling PRINT.QUOTE that it is finished. 

For example, the first message is the word "CLOSE" and a 
carriage return. The carriage return is entered in hex with 

the sign bit+1 as $8D. The second message is the word "OPEN", 
and the letter "N" is preceded by a minus sign in the .AS 
directive to indicate that the sign bit should be 1. 


The PRINT. QUOTE subroutine is at lines 2140 thru 2200. It 
expects the Y-register to contain the offset of the desired 
message from the beginning of all the messages at QTS. It 
calls on PRINT.CHAR to actualy send each character. 


PRINT.CHAR, at lines 2020 thru 2100, calls on the monitor 
print character routine at $FDED. This branches through DOS, 
and DOS writes the character on the text file. PRINT.CHAR 
saves and restores the Y-register and A-register contents. 
It also sets the sign bit on each character before printing 
it. Upon exit, the status will reflect the value of the 
character printed. 


Lines 1820 thru 1980 issue a DOS command. The Y-register 
points at one of the message strings inz.QTS. Control-D is 
printed, followed by the command key word, a space, and the 
file name you previously typed. Since DOS does not allow 
slot and drive specifications on the WRITE command, and 
Since it is sufficient to specify them only once, the sub- 
routine chops them off after printing them once. The logic 
for this is in lines 1910 thru 1940: after printing a comma, 
it is replaced with a carriage return. The next time the 
name is printed, the carriage return will be the end. 


The subroutine which really controls the listing is in lines 
2330 thru 2450. The first four instructions set up a zero- 
page pointer SRCP to point at the beginning of your source | 
program. Lines 2380 thru 2420 compare the pointer with HIMEM 
to see if the listing is completed. If you really had no 
source program, we would already be finished at this point. 
If there is another line (or more), the subroutine named 
ASM.LIST. LINE is called to list the next line. The process 
is repeated until the last line has been printed onto your 
text file. 


At this point it might be helpful to explain how source lines 
are stored in memory. Each line begins with a single byte 
which contains the byte-count of the line. Next are a byte- 
pair containing the line number of the line, in the usual 
backwards 6502 format. The text of the line follows, and 

a final byte containing $00 ends the line. No carriage 
return is stored. Blanks are treated specially. :; A single 
blank is stored as $81. Two blanks in a row are replaced by 
one byte of value $82. Any string of blanks up to 63 blanks 
is thus replaced by a single token of value $80 plus the 
blank count. Longer strings of blanks will take more than 
one token. 
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Ao 15 1290 LDY #QFILNAM-O@TS 
20 9E 08 1300 Jgr PRINT QUOTE 
48 SP 1348 nah) py HOVE FILE NAME TO SEPARATE 
BS 00 02 1330 ol LDA MON. BUFFER» 
99 80 02 1340 S16 DOS . BUFFER + Y 
98 e738 BRL 1 
18 $ set we Te Pe 
1228 : ¢ CLOSE» OPEN,s fate, OPENsr WRITE) 
20 A7 08 1410 JSR CLOSE.FIL Te 
Shoo ih Sak ARPES “_ 
RO TR aL eR aan 
20 6B 08 1450 JSR ISSUE.DOS.COMMAND 
26 os 1496 Lee Te Che. DOS: COMMAND 
$B 1388 LDY BayF Poe s& 
20 6B 08 1490 : JSR ISSUE. DOS.COMMAND 
1310 s LIST THE SOURCE PROGRAM 
20 B4 08 1530 JSR ASM.LIST 
1 % 0 
{bpo $ CLOSE THE FILE, 
20 A7 08 2570 : JSR CLOSE.FILE 
Pe | = oP ap SD ap 4 an GP GP Gp @m am ap & Gen Gb Gp ap aa» ap 
1590 % RETURN TO CALLER 
1260 $o———— CUR 
a9 00 1610 LDA 30 
-4 B3 10 1339 ------ JMP Bag grils 
14650 £ MESSAGE TEXT 
1660 #------—- 
| 1670 QTS -EQ 8 
43 4C 4F | 
53 45 1680 GCLOSE .AaS /CLOSE/ 
OP so 45 1900 OOPEN at v7 
cE 1398 “88 fORE/ 
44 45. 4C 
45 54 1720 QDELETE .AS /DELET/ 
cS 1730 AS -/E/ 
57 52. 49 


DM gPeonwnonu 
OBO VWS PID 


APNODMD OD BDOD 
SOQOCICACACACACACACA 
oS 


740 GWRITE .AS /URIT/ 
730 eAS -/E/ 
760 QFILNAM .HS OD. 


A 1770 -AS /TEXT FILE NAMES/ 
1780 AS -/ / 
1790 4-----——-—---—-—-- 
1802 ¢ ____ISSUE DOS COMMAND 
1820 ISSUE.DOS.COMMAND 
1850 LDA 3884 CONTROL-D 
1850 SR PRINT Gliete 
1898 Lpx #9 PRINT € SPACE 
1883 °° BB BRAT CHAR 
1900 BEQ .7 
1910 CMP 4’, COMMA? 
1920 BNE .6 
1930 LDA $$eD 
1940 STA BOS .BUFFER »Y 
1950 .6 LDA BOS. BUFFER r¥ 
1358 5 oe ALWAYS 
1980 .7 RTS 
1990 %------——- 
2000 % ___PRINT_CHARACTER 
3020 PRINT.CHAR 
5030 PHA . v 
i mew 
3070 LDY paagatr 
$98 Rbé 
2100 PC.SAVEY .BS 1 
2120 § _CiPRINT & QUOTATION 
3140 PRINT.GQUOTE NEXT 
rat) PRINT Quote 
08 1$8 ° ves aTSry 
08 2180 JSR PRINT.CHAR 
3190 BPL PRINT. GUOTE.NEXT 
3598 . __fr8 
2220 % CLOSE ALL FILES 
0 CLOSE.FIL 
$338 TEE non .cROUT 
0a $359 Lan RENT CONTROL —B 
338 GRE MRO SEREE 
5300 8——---—___________________ 
3310 8 LIST SOURCE PROGRAK 
3320 §——-——_—_— 
5330 ASM.LIST 
2340 LDA PP 
2350 STA SRCP 
$98 Pe kcaes 
2380 «1 LDA S 
2390 CMP HIMEN 
2400 LDA P41 
5410. SBC HIMEM+2 
3420 BCS .2 FINISHED 
3430 JSR ASM.LIST LINE 
3440 MP 41 
5450 2 1S 
2460 %-——- 
2470 & LIST ONE SOURCE LINE 


° AS 
490 ASM.LIST.LINE 


NJ 
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OmwmweoDd 
OHMS 


oo. 


KPBDO IOI ws DP 
ONO SCVOHMOUMSO 


SSSSSSee 
DN AGie 
rrplelyy 


08 2500 JSR GNB ” SKIP OVER BYTE COUNT 
0@ 2510 JSR GNB os GET LINE NUMBER 
og 3338 548 GARY 
5540 STA LIN 
09 2598 JSR PRINT .LINNUM 
0g: 3570 .1 Lee BRINT.C 
08 2580 JSR NEXT. TOKEN. 
| 3238 bie #0 
FD $99 HON. CROUT- 
2620 %— 
2630 GNB hy $0 
$238 L PLANE ; COUNT 
2660 GNBI INE SACP 
2670 BNE «1 pet 
$388 4. At SRE 
2706 %— 
2710 NEXT . TOKEN 
730 LBA Beak. count 
5740 BNE .1 
2758 LDA (SREP )r¥ 
$558 Ab Sse 
2780 STA BLANK. COUNT 
5810 tia or: . 
3820 RTS 
3830 4— 
2840 % PRINT LINE NUMBER 
2860 PRINT. LINNUM 
38 oy ER SPINE Roca eno 
5890 .1 SIGLT ON STACK. 
2900 SEC SUBTRACT CURRENT BIVISOR 
ee ee ee 
3393 BRA ”” GAVE BYTE ON STACK: 
3940 LBA LINNUM+1 
OF 3338 see PENTPH YX | cs THAN BIVISOR 
$90 ar frees 
2980 PLA GET LOW BYTE OFF STACK ° 
3990 TA LINNUM 
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CIWLIW WOIGIG! 
NiO Cid Gihom © SONI 
SoseSEsSao o 


o2 


3—--~ 
PLNTBL 


PLNTBH . 


abe 90 FhenPnent bey 
1 WAYS 


® ee 


BNE e AL 
PLA BISCARD BYTE FROM 
GET BIGIT FROM ST 


JSR PRINT.CHAR 


DEX NEXT BIGIT 


BPL 3 
‘RETURN 


® 

4 

> 
SSSN OOO 


A Use for the USR Command 


The S-C ASSEMBLER II Version 4.0 has one user-programmable 
command, called "USR". (The Quick Reference Card spells it 
erroneously "USEr".) One good use for it is to re-print the 
current symbol table. 


After an assembly, if the listing was not printed, it is often 
desirable to be able to see what the spelling or value of a 
Symbol or group of symbols is. If the' VAL command is not 
enough for you, then the following steps will set up the USR 
command to re-list the symbol table on the screen. And, if 
your printer is selected, it will also print there. 


Get into the assembler, by using BRUN ASMDISK 4.0 from either 
Applesoft or Integer BASIC. Type "$1E4EL" after the prompt. 
The first two lines listed should be "LDY #$02" and "STY $E1". 
If they are not, you have a different version. (It is still 
version 4.0, but slightly different.) The "LDY #$02" line 

is the first instruction of the symbol table printing sub- 
routine. 


Patch the USR vector by typing "$1007:4E 1E", and then BSAVE 
the result like this: | 
: BSAVE ASMDISK 4.0 (WITH USR ), A$1000, LG14FB 


This new version, whenever you type "USR", will print out 
the current symbol table. It will look exactly the same as 
the symbol table printed out at the end of an assembly. 


A Simulated Numeric Key-Pad 


This little program will turn part of your Apple's keyboard 
into a simulated numeric key-pad. A lot cheaper than buying 
a real one! [t is set up to run in page 3, and assumes you 
are using DOS. If not, just change line 1120 to an RTS. 


If you BRUN it or CALL it at 768, the input vector is patched 
to input all characters through the NKP program. Typing a 
control-S will toggle the numeric key-pad translator on and 
off. When the translator is off, all keyboard action is 
normal, except that another control-S will turn it back on 
again. When the translator is on, all keys which are not 
part of the simulated key-pad will input normally. 


The keys translated by the simulator are listed in line 1390. 
The slash key duplicates RETURN, because it is easier to hit 
when you are entering a lot of numbers. For the same reason, 


the L-key duplicates "-", in case you are in a hurry to enter 
negative numbers too. The space bar is used for "0". I set 
it up to use "NM," for "123", "HJK" for "456", and "YUI" for 
"789". You should be able to easily change tese translations 


to any other combination, by changing lines 1390 thru 1420. 


The heart of the translator is the search loop in lines 1240 
thru 1280. If the input character is not found in CHRTBL, 
the search loop drops out and the character is not changed. 
If the character is found, line 1310 picks up the alias for 
the key, and returns. That's all there is to it! 
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1000 %-~------------------------------- 
1010 t NUMERIC KEY PAD FOR APPLE 
1030 .OR $300 

1040 «TF BeNKP 

1050 %------------—-------------------- 
1060 LDA #1 

1070 STA TOGGLE 

1080 LDA #NK 

+ 238 Pha ?NEP 

1198 EPA $39 

1120 JMP $3EA 

1130 %*--------------------------------- 
1140 TOGGLE .BS 1 

1150 SAVEY .BS i 

1140 ¥--------------------------------- 
1170 NKP 

1180 JSR $FD1B 

1190 CHP #$93 CONTROL-S 

1200 BEQ .4 

1328 Bit TOGGLE NOT IN NUMERIC MODE 
1538 ee ékuey 

1240 LDY #TBLSIZ-1 

1250 .1 CMP CHRTBL»Y 

1240 BEQ .3 FOUND IN TABLE 
1270 DEY 

1280 BPL .1 

1290 LDY SAVEY 

1309 2 RTS 

1310 .3 LDA ALIAS?Y 

1320 LDY SAVEY 

1330 RTS 

1340 .4 LDA TOGGLE 

1350 EOR #$80 

1360 STA TOGGLE 

1370 MP $FD 

1380 *#------------—--------------—----- 
1390 CHRTBL .AS -"/L NMsHJKYUI" 

1400 TBLSIZ .EQ *-CHRTBL 

1410 ALIAS .HS SD 

1420 .AS —"-0123456789" 

1430 %------—--------=-—-=-------------- 
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